home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / mp.vim < prev    next >
Encoding:
Text File  |  2001-04-30  |  5.6 KB  |  133 lines
  1. " Vim syntax file
  2. " Language:    MetaPost
  3. " Maintainer:    Andreas Scherer <andreas.scherer@pobox.com>
  4. " Last Change:    April 30, 2001
  5.  
  6. " For version 5.x: Clear all syntax items
  7. " For version 6.x: Quit when a syntax file was already loaded
  8. if version < 600
  9.   syn clear
  10. elseif exists("b:current_syntax")
  11.   finish
  12. endif
  13.  
  14. let plain_mf_macros = 0 " plain.mf has no special meaning for MetaPost
  15. let other_mf_macros = 0 " cmbase.mf, logo.mf, ... neither
  16.  
  17. " Read the Metafont syntax to start with
  18. if version < 600
  19.   source <sfile>:p:h/mf.vim
  20. else
  21.   runtime! syntax/mf.vim
  22. endif
  23.  
  24. " MetaPost has TeX inserts for typeset labels
  25. " verbatimtex, btex, and etex will be treated as keywords
  26. syn match mpTeXbegin "\(verbatimtex\|btex\)"
  27. syn match mpTeXend "etex"
  28. syn region mpTeXinsert start="\(verbatimtex\|btex\)"hs=e+1 end="etex"he=s-1 contains=mpTeXbegin,mpTeXend keepend
  29.  
  30. " MetaPost primitives not found in Metafont
  31. syn keyword mpInternal bluepart clip color dashed fontsize greenpart infont
  32. syn keyword mpInternal linecap linejoin llcorner lrcorner miterlimit mpxbreak
  33. syn keyword mpInternal prologues redpart setbounds tracinglostchars
  34. syn keyword mpInternal truecorners ulcorner urcorner withcolor
  35.  
  36. " Metafont primitives not found in MetaPost
  37. syn keyword notDefined autorounding chardx chardy fillin granularity hppp
  38. syn keyword notDefined proofing smoothing tracingedges tracingpens
  39. syn keyword notDefined turningcheck vppp xoffset yoffset
  40.  
  41. " Keywords defined by plain.mp
  42. if !exists("plain_mp_macros")
  43.   let plain_mp_macros = 1 " Set this to '0' if your source gets too colourful
  44. endif
  45. if plain_mp_macros
  46.   syn keyword mpMacro ahangle ahlength background bbox bboxmargin beginfig
  47.   syn keyword mpMacro beveled black blue buildcycle butt center cutafter
  48.   syn keyword mpMacro cutbefore cuttings dashpattern defaultfont defaultpen
  49.   syn keyword mpMacro defaultscale dotlabel dotlabels drawarrow drawdblarrow
  50.   syn keyword mpMacro drawoptions endfig evenly extra_beginfig extra_endfig
  51.   syn keyword mpMacro green label labeloffset mitered red rounded squared
  52.   syn keyword mpMacro thelabel white base_name base_version
  53.   syn keyword mpMacro upto downto exitunless relax gobble gobbled
  54.   syn keyword mpMacro interact loggingall tracingall tracingnone
  55.   syn keyword mpMacro eps epsilon infinity right left up down origin
  56.   syn keyword mpMacro quartercircle halfcircle fullcircle unitsquare identity
  57.   syn keyword mpMacro blankpicture withdots ditto EOF pensquare penrazor
  58.   syn keyword mpMacro penspeck whatever abs round ceiling byte dir unitvector
  59.   syn keyword mpMacro inverse counterclockwise tensepath mod div dotprod
  60.   syn keyword mpMacro takepower direction directionpoint intersectionpoint
  61.   syn keyword mpMacro softjoin incr decr reflectedabout rotatedaround
  62.   syn keyword mpMacro rotatedabout min max flex superellipse interpath
  63.   syn keyword mpMacro magstep currentpen currentpen_path currentpicture
  64.   syn keyword mpMacro fill draw filldraw drawdot unfill undraw unfilldraw
  65.   syn keyword mpMacro undrawdot erase cutdraw image pickup numeric_pickup
  66.   syn keyword mpMacro pen_lft pen_rt pen_top pen_bot savepen clearpen
  67.   syn keyword mpMacro clear_pen_memory lft rt top bot ulft urt llft lrt
  68.   syn keyword mpMacro penpos penstroke arrowhead makelabel labels penlabel
  69.   syn keyword mpMacro range numtok thru clearxy clearit clearpen pickup
  70.   syn keyword mpMacro shipit bye hide stop solve
  71. endif
  72.  
  73. " Keywords defined by mfplain.mp
  74. if !exists("mfplain_mp_macros")
  75.   let mfplain_mp_macros = 0 " Set this to '1' to include these macro names
  76. endif
  77. if mfplain_mp_macros
  78.   syn keyword mpMacro beginchar blacker capsule_def change_width
  79.   syn keyword mpMacro define_blacker_pixels define_corrected_pixels
  80.   syn keyword mpMacro define_good_x_pixels define_good_y_pixels
  81.   syn keyword mpMacro define_horizontal_corrected_pixels
  82.   syn keyword mpMacro define_pixels define_whole_blacker_pixels
  83.   syn keyword mpMacro define_whole_vertical_blacker_pixels
  84.   syn keyword mpMacro define_whole_vertical_pixels endchar
  85.   syn keyword mpMacro extra_beginchar extra_endchar extra_setup
  86.   syn keyword mpMacro font_coding_scheme font_extra_space font_identifier
  87.   syn keyword mpMacro font_normal_shrink font_normal_space
  88.   syn keyword mpMacro font_normal_stretch font_quad font_size
  89.   syn keyword mpMacro font_slant font_x_height italcorr labelfont
  90.   syn keyword mpMacro makebox makegrid maketicks mode_def mode_setup
  91.   syn keyword mpMacro o_correction proofrule proofrulethickness rulepen smode
  92.  
  93.   " plus some no-ops, also from mfplain.mp
  94.   syn keyword mpMacro cullit currenttransform gfcorners grayfont hround
  95.   syn keyword mpMacro imagerules lowres_fix nodisplays notransforms openit
  96.   syn keyword mpMacro proofoffset screenchars screenrule screenstrokes
  97.   syn keyword mpMacro showit slantfont titlefont unitpixel vround
  98. endif
  99.  
  100. " Keywords defined by other macro packages, e.g., boxes.mp
  101. if !exists("other_mp_macros")
  102.   let other_mp_macros = 1 " Set this to '0' if your source gets too colourful
  103. endif
  104. if other_mp_macros
  105.   syn keyword mpMacro circmargin defaultdx defaultdy
  106.   syn keyword mpMacro boxit boxjoin bpath circleit drawboxed drawboxes
  107.   syn keyword mpMacro drawunboxed fixpos fixsize pic
  108. endif
  109.  
  110. " Define the default highlighting
  111. " For version 5.7 and earlier: only when not done already
  112. " For version 5.8 and later: only when an item doesn't have highlighting yet
  113. if version >= 508 || !exists("did_mp_syntax_inits")
  114.   if version < 508
  115.     let did_mp_syntax_inits = 1
  116.     command -nargs=+ HiLink hi link <args>
  117.   else
  118.     command -nargs=+ HiLink hi def link <args>
  119.   endif
  120.  
  121.   HiLink mpTeXinsert    String
  122.   HiLink mpTeXbegin    Statement
  123.   HiLink mpTeXend    Statement
  124.   HiLink mpInternal    mfInternal
  125.   HiLink mpMacro    Macro
  126.  
  127.   delcommand HiLink
  128. endif
  129.  
  130. let b:current_syntax = "mp"
  131.  
  132. " vim: ts=8
  133.